0 REM(null):REM   (null):REM  (null)
1 REM  (null):REM  (null):REM  (null)
2 POKE53280,11:POKE53281,11:POKE808,225:POKE775,200:REM
3 PRINT "[147]TO DISPLAY THE 'LOAD ADDRESS' OF A FILE":REM:REM(null):REM(null)
4 PRINT "INSERT DISK THEN ENTER":PRINT"NAME OF FILE ";:INPUTF$:REM(null)
5 PRINT:PRINT"LOAD ADDRESS:";:GOSUB20:REM(null)
12 PRINT"WANT A PRINTOUT?(Y/N)":REM(null)
13 GETK$:IFK$=""THEN13:REM(null)
14 IFK$="Y"THENGOSUB150:REM(null)
15 CLOSE1:REM(null)
16 PRINT"ANOTHER FILE?(Y/N)":REM(null)
17 GETX$:IFX$=""THEN17:REM(null)
18 IFX$="Y"THENGOTO3:REM(null)
19 SYS64738:REM(null)
20 OPEN1,8,3,"0:"+F$:REM(null)
21 GET #1,L$:GET#1,H$:REM(null)
22 X$=H$:GOSUB 100:H=X*256:X$=L$:GOSUB100:L=X:PRINTH+L:RETURN:REM(null)
100 IF X$="" THEN X=0:RETURN:REM(null)
110 X=ASC(X$):RETURN:REM(null)
150 OPEN4,4:PRINT#4,CHR$(14):CMD4:REM(null)
155 PRINTF$;"'S LOAD ADDRESS IS";H+L:REM(null)
156 PRINT#4:CLOSE4:RETURN:REM(null)